unit ClassEmpresa;

interface
uses Classes;
type
  TEmpresa = class
  private
    FID             : Integer;
    FNomeFantasia   : String;
    FRazaoSocial    : String;
    FCNPJ           : String;
    FIE             : String;
    FIdentificacao  : String;
    FTelefone       : String;
  public
    constructor Create(PID: Integer; PNome, PFantasia, PCNPJ, PIE : String);
    destructor  Destroy;
  published
    property ID            : Integer read FID;
    property NomeFantasia  : String  read FNomeFantasia;
    property RazaoSocial   : String  read FRazaoSocial;
    property CNPJ          : String  read FCNPJ;
    property IE            : String  read FIE;
 end;

implementation

{ TEmpresa }

constructor TEmpresa.Create(PID: Integer; PNome, PFantasia, PCNPJ, PIE : String);
begin
  inherited
  Create;
  FID            := PID;
  FNomeFantasia  := PFantasia;
  FRazaoSocial   := PNome;
  FCNPJ          := PCNPJ;
  FIE            := PIE;
end;

destructor TEmpresa.Destroy;
begin
  inherited;
end;

end.
